home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / perl5 / 5.8.7 / PerlIO / via / QuotedPrint.pm
Text File  |  2006-04-25  |  2KB  |  95 lines
  1. package PerlIO::via::QuotedPrint;
  2.  
  3. # Set the version info
  4. # Make sure we do things by the book from now on
  5.  
  6. $VERSION = '0.06';
  7. use strict;
  8.  
  9. # Make sure the encoding/decoding stuff is available
  10.  
  11. use MIME::QuotedPrint (); # no need to pollute this namespace
  12.  
  13. # Satisfy -require-
  14.  
  15. 1;
  16.  
  17. #-----------------------------------------------------------------------
  18. #  IN: 1 class to bless with
  19. #      2 mode string (ignored)
  20. #      3 file handle of PerlIO layer below (ignored)
  21. # OUT: 1 blessed object
  22.  
  23. sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
  24.  
  25. #-----------------------------------------------------------------------
  26. #  IN: 1 instantiated object (ignored)
  27. #      2 handle to read from
  28. # OUT: 1 decoded string
  29.  
  30. sub FILL {
  31.  
  32. # Read the line from the handle
  33. # Decode if there is something decode and return result or signal eof
  34.  
  35.     my $line = readline( $_[1] );
  36.     (defined $line) ? MIME::QuotedPrint::decode_qp( $line ) : undef;
  37. } #FILL
  38.  
  39. #-----------------------------------------------------------------------
  40. #  IN: 1 instantiated object (ignored)
  41. #      2 buffer to be written
  42. #      3 handle to write to
  43. # OUT: 1 number of bytes written
  44.  
  45. sub WRITE {
  46.  
  47. # Encode whatever needs to be encoded and write to handle: indicate result
  48.  
  49.     (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1;
  50. } #WRITE
  51.  
  52. __END__
  53.  
  54. =head1 NAME
  55.  
  56. PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
  57.  
  58. =head1 SYNOPSIS
  59.  
  60.  use PerlIO::via::QuotedPrint;
  61.  
  62.  open( my $in,'<:via(QuotedPrint)','file.qp' )
  63.   or die "Can't open file.qp for reading: $!\n";
  64.  
  65.  open( my $out,'>:via(QuotedPrint)','file.qp' )
  66.   or die "Can't open file.qp for writing: $!\n";
  67.  
  68. =head1 DESCRIPTION
  69.  
  70. This module implements a PerlIO layer that works on files encoded in the
  71. quoted-printable format.  It will decode from quoted-printable while reading
  72. from a handle, and it will encode as quoted-printable while writing to a handle.
  73.  
  74. =head1 REQUIRED MODULES
  75.  
  76.  MIME::QuotedPrint (any)
  77.  
  78. =head1 SEE ALSO
  79.  
  80. L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
  81. L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
  82.  
  83. =head1 ACKNOWLEDGEMENTS
  84.  
  85. Based on example that was initially added to MIME::QuotedPrint.pm for the
  86. 5.8.0 distribution of Perl.
  87.  
  88. =head1 COPYRIGHT
  89.  
  90. Copyright (c) 2002-2003 Elizabeth Mattijsen.  All rights reserved.  This
  91. library is free software; you can redistribute it and/or modify it under
  92. the same terms as Perl itself.
  93.  
  94. =cut
  95.